This is METAFONT, Version 0.2 (INIMF)  12 SEP 1984 20:14
**\input trap
(trap.mf
>> << == >> :: ||`` ''--!! ??## && @@ $$[[]]{{ }}((5.5 0.5))
>> ".."
! Not implemented: (unknown numeric)++(string).
<to be read again> 
                   ;
l.4 ...}} . (( 5.5.5 )) ++ "..";
                                
I'm afraid I don't know how to apply that operation to that
combination of types. Continue, and I'll return the second
argument (see above) as the result of the operation.

..
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.5   begingroup save =; let=,
                              ; save,; newinternal $=,; let )...
You should have said `let symbol = something'.
But don't worry; I'll pretend that an equals sign
was present. The next token I read will be `something'.

> errorstopmode=errorstopmode
> readterminal=readterminal
> 2
> "2"
> ,=,
> (=name
> )=,
<< == >> :: ||`` ''--!! ??## && @@ $$[[]]{{ }}(([][]))=numeric
<< == >> :: ||`` ''--!! ??## && @@ $$[[]]{{ }}((5.5 0.5))=<< == >> :: ||
`` ''--!! ??## && @@ $$[[]]{{ }}((5.5 0.5))
> year=month
! OK.
l.6 ...inal,2,"2",,,(,),<<,year;
                                

! Missing `:' has been inserted.
<to be read again> 
                   ;
l.8 ...not cycle "":1.1 forever;
                                fi;
The next thing in this loop should have been a `:'.
So I'll pretend that a colon was present;
everything from here to `endfor' will be iterated.

{fi}
{exitif}
{[repeat the loop]}
{false}
{fi}
{exitif}
{[repeat the loop]}
{(2.1)>(2)}
{true}
{tracingcommands:=2.1}
{tracingedges:=1.1}
{(0)+(1)}
{tracingequations:=1}
{interim}
{tracingmacros:=1}
{tracingoutput:=1}
{tracingstats:=1}
{tracingchoices:=1}
{tracingpens:=1}
{tracingspecs:=1}
{ord("")}
{$:=-1}
{$:=x}
>> x
! Internal quantity `$' must receive a known value.
<to be read again> 
                   ;
l.12 ...cros:=1; $:=ord""; $:=x;
                                
I can't set an internal quantity to anything but a known
numeric value, so I'll have to ignore this assignment.

{delimiters}
{delimiters}
{vardef}

foo(TEXT2)->begingroup(TEXT2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-foo
(TEXT2)<-interim.proofing:=(-0.5;shipout.nulledges;special"3"
{begingroup}
{interim}
{-(0.5)}
! Missing `)' has been inserted.
<to be read again> 
                   ;
<argument> ...m.proofing:=(-0.5;
                                shipout.nulledges;special"3"
foo->begingroup(TEXT2)
                      endgroup
l.15 ...ges; special "3" endtext
                                ;
I found no right delimiter to match a left one. So I've
put one in, behind the scenes; this may fix the problem.

{proofing:=-0.5}
{shipout}
{nulledges}
{special}
{endgroup}
{for}
{showstats}
Memory usage 267&10 (max 279&28)
String usage 25&79 (max 25&79)
! OK.
l.16 ...ing:fi endfor showstats;
                                

{path}
{-(15)}
{-(12)}
Path at line 17, before choices:
(0,0)..controls (15,4) and (-15,-12)
 ..(4,0)

Path at line 17, after choices:
(0,0)..controls (15,4) and (-15,-12)
 ..(4,0)

{(unknown path p~)=(path)}
{everyjob}
{vardef}
{let}
{vardef}
{def}
{elseif}

Beginning to dump on file trap.base
 (preloaded base=trap 84.9.12)
952 strings of total length 19648
347 memory locations dumped; current usage is 303&36
240 symbolic tokens